home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / numbers (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  127 lines
  1. 2 POKE53280,5:POKE53281,15:POKE646,9
  2. 3 PRINT"[147]       A TPUG EDUCATIONAL PROGRAM
  3. 4 [153]"           FOR C-64 COMPUTERS
  4. 5 PRINT"             GRADES K TO 2
  5. 6 [153]"               NUMBERS                  WAIT"
  6. 7 [153]"         INSTRUCTIONS?  (Y/N)
  7. 8 GETR$:IFR$=""THEN8
  8. 9 IFR$="N"THEN900
  9. 10 PRINT"[147]            INSTRUCTIONS [146]
  10. 12 [153]"*THE PURPOSE OF THIS PROGRAM IS TO HELP  LITTLE PEOPLE ";
  11. 14 [153]"LEARN THEIR NUMBERS.
  12. 16 PRINT"*MOST PRE-SCHOOL CHILDREN, THANKS TO     SESAME STREET, HAVE LEARNED";
  13. 18 PRINT" TO COUNT    TO TEN "
  14. 20 PRINT"*HOWEVER, THEY DO HAVE SOME DIFFICULTY   RECOGNIZING NUMBERS";
  15. 22 PRINT" AND THEIR PROPER    SEQUENCE.
  16. 24 [153]"    ** PRESS [SPACE] TO CONTINUE **
  17. 26 GETB$:IFB$=""THEN26
  18. 30 PRINT"[147]*THIS PROGRAM SELECTS NUMBERS AT RANDOM  AND ASKS THE";
  19. 32 PRINT" STUDENT 'WHAT NUMBER COMES AFTER  N [146]?"
  20. 34 PRINT"*IF THE STUDENT'S RESPONSE IS CORRECT    THE COMPUTER SMILES ";
  21. 36 PRINT"AND MAKES AN        ENCOURAGING SOUND."
  22. 38 PRINT"*AN INCORRECT RESPONSE RESULTS IN BOTH   A FROWN AND A RUDE";
  23. 40 PRINT" NOISE FROM THE       COMPUTER."
  24. 42 PRINT"    ** PRESS [SPACE] TO CONTINUE **
  25. 43 [161]B$:[139]B$[178]""[167]43
  26. 44 [153]"LOAD*IF THE STUDENT IS UNABLE TO READ, YOU   SHOULD QUIDE";
  27. 46 [153]" HIM/HER THROUGH SEVERAL    SEQUENCES AND POINT OUT WHERE";
  28. 48 [153]" THE 'KEY' NUMBER IS LOCATED ON THE SCREEN.
  29. 50 PRINT"*AS SOON AS THE CHILD HAS CAUGHT ON TO   THE PROCESS PLEASE";
  30. 52 PRINT" BACK OFF SINCE THE   GAME HAS ITS OWN BUILT-IN POSITIVE AND";
  31. 54 PRINT"  NEGATIVE REINFORCERS.
  32. 56 [153]"*YOU CAN SELECT THE HIGHEST NUMBER TO BE USED IN THE GAME.
  33. 58 PRINT"*AT THE END OF 10 QUESTIONS, THE         COMPLETION TIME IS SHOWN
  34. 60 [153]"*YOU CAN PRESS Q WAIT TO STOP THE GAME
  35. 62 PRINT"    PRESS SPACE BAR TO START THE GAME   [146]"
  36. 64 GETR$:IFR$<>CHR$(32)THEN64
  37. 66 GOTO900
  38. 70 PRINT"[147]  WHAT WILL BE YOUR HIGHEST NUMBER?":GOSUB500
  39. 72 INPUTM
  40. 118 REM 120-160 INITIALIZES VARIABLES AND CLEARS SCREEN
  41. 130 S=1024:E=10:TS=12:CO=55296
  42. 140 R=RND(-TI):PRINTCHR$(147)
  43. 168 REM 170 PICKS RANDOM INTEGER FROM 1 TO M
  44. 169 TI$="000000"
  45. 170 R=INT(M*RND(1))+1:IFR=PTHEN170
  46. 178 REM 180-240 ASKS QUESTIONS GETS ANSWERS DETERMINES IF RIGHT OR WRONG
  47. 180 PRINT:PRINT
  48. 190 PRINT"[147]  WHAT NUMBER COMES AFTER   ";R  :PRINT
  49. 195 PRINT"                           [162][162][162][162]"
  50. 200 PRINT"   ANSWER AND PRESS  RETURN [146]
  51. 205 [153]:[153]
  52. 210 [153][163]15):[133]R$
  53. 215 [139]R$[178]"Q"[167][137]440
  54. 220 [139][197](R$)[178]R[170]1[167]300
  55. 222 [129]X[178]1[164]400:[130]
  56. 225 [137] 650
  57. 300 [153]"  GOOD! WAIT                      GREAT! WAIT
  58. 305 FORX=1TO800:NEXT
  59. 310 GOSUB 600:GOTO 820
  60. 400 PRINT"[147]   YOU MADE IT IN" VAL(TI$) "SECONDS!! "
  61. 405 PRINT"   CAN YOU DO ANY BETTER?  (Y OR N)
  62. 408 D[178]0
  63. 410 [161]R$:[139]R$[178]""[167]410
  64. 415 [139]R$[179][177]"Y"[175]R$[179][177]"N"[167]410
  65. 420 [139]R$[178]"N"[167]440
  66. 425 [139]R$[178]"Y"[167]170
  67. 440 [153]"LOAD  YOU HAVE A CHOICE:
  68. 445 PRINT"  PRESS  P [146] TO PLAY AGAIN
  69. 450 [153]"  PRESS  M WAIT TO RETURN TO THE MENU
  70. 455 GETR$:IFR$<>"P"ANDR$<>"M"THEN455
  71. 460 IFR$="P"THENRESTORE:GOTO 2
  72. 470 PRINT"[147] RETURNING TO THE DISK MENU
  73. 475 [147]"MENU",8
  74. 480 [138]
  75. 485 [128]
  76. 499 [143] RIGHT SOUND
  77. 500 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  78. 510 [151]54296,15:[151]54277,42:[151]54278,250
  79. 520 [151]54276,23:[151]54273,23:[151]54272,181
  80. 530 [129]T[178]1[164]150:[130]:[151]54276,32:[129]T[178]1[164]200:[130]:[151]54296,0:[142]
  81. 549 [143] WRONG SOUND
  82. 550 [129]X[178]1[164]400:S[178]54272:[129] E[178]S[164]S[170]28:[151]E,0:[130]
  83. 560 [151]54296,15:[151]54277,18:[151]54278,242
  84. 570 [151]54276,33:[151]54273,4:[151]54272,48
  85. 580 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]:[151]54296,0:[142]
  86. 598 [143] SMILE
  87. 600 [151]1720,81:[151]1722,81:[151]1799,74:[151]1800,67:[151]1801,67
  88. 610 [151]1802,67:[151]1803,75
  89. 620 [151]55992,6:[151]55994,6:[151]56071,6:[151]56072,9:[151]56073,9:[151]56074,9
  90. 630 [151]56075,9:[141]500:[142]
  91. 649 [143] FROWN
  92. 650 [151]1720,81:[151]1722,81:[151]1799,85:[151]1800,67:[151]1801,67
  93. 660 [151]1802,67:[151]1803,73
  94. 670 [151]55992,2:[151]55994,2:[151]56071,2:[151]56072,0:[151]56073,0:[151]56074,0
  95. 680 [151]56075,0:[141]550
  96. 685 [153]"LOAD  YOU GOT " D " CORRECT IN A ROW.":[141]550
  97. 690 [153]"  YOUWAIT CAN DO BETTER THAN THAT.":[141]550
  98. 695 [129]T[178]1[164]3000:[130]:D[178]0:[137]170
  99. 790 [129]T[178]1[164]500:[130]:[142]
  100. 791 [129]T[178]1[164]1000:[130]:[142]
  101. 792 [129]T[178]1[164]2000:[130]:[142]
  102. 793 [129]T[178]1[164]3000:[130]:[142]
  103. 795 [129]T[178]1[164]5000:[130]:[142]
  104. 810 [151]53281,1:[153][199](147);
  105. 815 [151]53289,14:[151]53281,6
  106. 820 D[178]D[170]1:[139]D[178]10[167]400
  107. 830 [137] 170
  108. 899 [143] TITLE 'PAGE'
  109. 900 [153]"LOAD     1":[141]990
  110. 905 [153]"        2":[141]990
  111. 910 [153]"           3":[141]990
  112. 915 [153]"              4":[141]990
  113. 920 [153]"                 5":[141]990
  114. 925 [153]"                    6":[141]990
  115. 930 [153]"                       7":[141]990
  116. 935 [153]"                          8":[141]990
  117. 940 [153]"                             9":[141]990
  118. 945 [153]"                                10":[141]990
  119. 950 [153]" 1   2   3   4   5   6   7   8   9   10":[141]990:[129]T[178]1[164]500:[130]
  120. 955 [153]"    WELCOME TO THE GREAT NUMBER GAME    ":[141]990:[129]T[178]1[164]500:[130]
  121. 960 [153]" 1   2   3   4   5   6   7   8   9   10 ":[141]990
  122. 965 [141]795:[137]70
  123. 990 S[178]54272:[129]L[178]S[164]S[170]24:[151]L,O:[130]:[151]S[170]5,14:[151]S[170]9,240:[151]S[170]24,15
  124. 992 HF[178]S[170]1:LF[178]S
  125. 994 [151]S[170]4,17:[151]HF,[181]([187](0)[172]50)[170]80:[151]LF,250:[151]S[170]4,16:[142]
  126. 1000 [143] DESIGNED BY BILL CUMBERLAND 85:02:20 AND REVISED 90:11:28
  127.